      frmMDIParent.ToolStripProgressBar1.Value = 0
      frmMDIParent.ToolStripProgressBar1.Visible = True
      For i As Integer = 0 To frmMDIParent.ToolStripProgressBar1.Maximum - 1

      frmMDIParent.ToolStripProgressBar1.Value = frmMDIParent.ToolStripProgressBar1.Value + 1
      Next